home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / RESET.M < prev    next >
Encoding:
Text File  |  1993-05-04  |  216 b   |  15 lines
  1. MODULE Reset;
  2. (*$N+*)
  3.  
  4. FROM SYSTEM IMPORT ASSEMBLER;
  5.  
  6. BEGIN
  7.   ASSEMBLER
  8.         CLR.L   -(A7)
  9.         MOVE    #$20,-(A7)
  10.         TRAP    #1
  11.         MOVE.L  $46E,A0
  12.         JMP     (A0)
  13.   END
  14. END Reset.
  15.